home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / proglib.sit / Resource Library / background_5453.txt < prev    next >
Text File  |  1989-05-28  |  10KB  |  469 lines
  1. -- background: 5453 from stack: in
  2. -- bmap block id: 3652
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Icons
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if fld curButton <> "" then
  9.     set the highlight of card button id (background field curButton) to false
  10.     put "" into fld curButton
  11.   end if
  12. end openCard
  13.  
  14. on AddNewCard name
  15.   global buttonId
  16.  
  17.   set lockscreen to true
  18.  
  19.   put background field "Number" into ix
  20.   if ix = 20 then
  21.     doMenu "New Card"
  22.     put 0 into background field "Number"
  23.     put "" into background field "curButton"
  24.     put "ICON" into background field "resType"
  25.   end if
  26.  
  27.   makeButton
  28.  
  29.   put "set name of button id" && buttonId && "to" && quote & name & quote into tmp
  30.   do tmp
  31.   put "set icon of button id" && buttonId && "to" && quote & name & quote into tmp
  32.   do tmp
  33.  
  34.   resetHighlight
  35.   set lockscreen to false
  36.  
  37. end AddNewCard
  38.  
  39. function buttonRect num
  40. put 30 + (num div 5) * 70 into tv
  41. put 75 + (num mod 5) * 70 into th
  42.  
  43. return th & "," & tv & "," & th+60 & "," & tv+60
  44. end buttonRect
  45.  
  46. on makeButton
  47.   global buttonId
  48.   put background field "Number" into ix
  49.   put ix+1 into background field "Number"
  50.  
  51.   set visible of background button "protoButton" to true
  52.  
  53.   choose button tool
  54.   click at loc of background button "protoButton"
  55.   doMenu "Copy Button"
  56.   doMenu "Paste Button"
  57.   choose browse tool
  58.  
  59.   set visible of background button "protoButton" to false
  60.  
  61.   set the rect of last button to buttonRect(ix)
  62.   put the id of last button into buttonId
  63.  
  64. end makeButton
  65.  
  66. on idle
  67.   doHilite
  68. end idle
  69.  
  70. on hideFields
  71.   set visible of background field "HighlightAreas" to false
  72.   set visible of background field "Number" to false
  73.   set visible of background field "curButton" to false
  74.   set visible of background button "protoButton" to false
  75. end hideFields
  76.  
  77. on showFields
  78.   set visible of background field "HighlightAreas" to true
  79.   set visible of background field "Number" to true
  80.   set visible of background field "curButton" to true
  81.   set visible of background button "protoButton" to true
  82. end showFields
  83.  
  84.  
  85.  
  86. -- part 1 (button)
  87. -- low flags: 00
  88. -- high flags: 0001
  89. -- rect: left=475 top=26 right=59 bottom=504
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 21700 / 21700
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Home
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   go home
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 2 (button)
  106. -- low flags: 00
  107. -- high flags: 0001
  108. -- rect: left=475 top=60 right=93 bottom=504
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 24317 / 24317
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Welcome
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   go to card "Welcome"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 3 (button)
  125. -- low flags: 00
  126. -- high flags: 8003
  127. -- rect: left=423 top=191 right=216 bottom=507
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Functions
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   go to first card of background "Functions"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 4 (button)
  144. -- low flags: 00
  145. -- high flags: 8003
  146. -- rect: left=423 top=220 right=245 bottom=507
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Sounds
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   go to first card of background "Sounds"
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 5 (button)
  163. -- low flags: 00
  164. -- high flags: 8003
  165. -- rect: left=423 top=133 right=158 bottom=507
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Commands
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   go to first card of background "Commands"
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 6 (button)
  182. -- low flags: 80
  183. -- high flags: 0001
  184. -- rect: left=476 top=305 right=336 bottom=504
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 29484 / 29484
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: Next
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   go to next card of this background
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 7 (button)
  201. -- low flags: 00
  202. -- high flags: 8003
  203. -- rect: left=303 top=306 right=331 bottom=397
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Delete
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   butDelete
  215.   resetHighlight
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 8 (button)
  221. -- low flags: 00
  222. -- high flags: 8003
  223. -- rect: left=102 top=306 right=331 bottom=199
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Paste
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   if background field "curButton" = "" then
  235.     answer "You must select an ICON first!" with "Oops"
  236.     exit mouseUp
  237.   end if
  238.   put background field resType && the short name of card button id (background field "curButton") & return into tmp
  239.   go to card "Paste"
  240.   put tmp after card field "ToPaste"
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 9 (button)
  246. -- low flags: 80
  247. -- high flags: 0001
  248. -- rect: left=7 top=304 right=335 bottom=35
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 3835 / 3835
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Prev
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   go to previous card of this background
  260. end mouseUp
  261.  
  262.  
  263.  
  264. -- part 16 (button)
  265. -- low flags: 00
  266. -- high flags: 8003
  267. -- rect: left=423 top=249 right=274 bottom=507
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: Add
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   go to card "Add"
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 17 (field)
  284. -- low flags: 00
  285. -- high flags: 0000
  286. -- rect: left=6 top=30 right=53 bottom=58
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 0
  290. -- font id: 3
  291. -- text size: 14
  292. -- style flags: 256
  293. -- line height: 18
  294. -- part name: resType
  295.  
  296.  
  297. -- part 18 (button)
  298. -- low flags: 00
  299. -- high flags: A003
  300. -- rect: left=206 top=306 right=331 bottom=296
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 1
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: Rename
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   butRename
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 22 (field)
  317. -- low flags: 80
  318. -- high flags: 0007
  319. -- rect: left=144 top=31 right=281 bottom=348
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 0
  323. -- font id: 3
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: HighlightAreas
  328.  
  329.  
  330. -- part 23 (button)
  331. -- low flags: 80
  332. -- high flags: 8003
  333. -- rect: left=2 top=123 right=145 bottom=102
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: protoButton
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   buttonHit
  345. end mouseUp
  346.  
  347.  
  348.  
  349. -- part 24 (field)
  350. -- low flags: 80
  351. -- high flags: 0002
  352. -- rect: left=3 top=91 right=112 bottom=87
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 0
  356. -- font id: 3
  357. -- text size: 12
  358. -- style flags: 0
  359. -- line height: 16
  360. -- part name: curButton
  361.  
  362.  
  363. -- part 25 (field)
  364. -- low flags: 80
  365. -- high flags: 0002
  366. -- rect: left=7 top=63 right=82 bottom=47
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 0
  370. -- font id: 3
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: Number
  375.  
  376.  
  377. -- part 26 (button)
  378. -- low flags: 00
  379. -- high flags: 8003
  380. -- rect: left=423 top=162 right=187 bottom=507
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 1
  384. -- font id: 0
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: Cursors
  389. ----- HyperTalk script -----
  390. on mouseUp
  391.   go to first card of background "Cursors"
  392. end mouseUp
  393.  
  394.  
  395.  
  396. -- part 27 (button)
  397. -- low flags: 80
  398. -- high flags: 0001
  399. -- rect: left=2 top=256 right=300 bottom=43
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 32670 / 32670
  402. -- text alignment: 1
  403. -- font id: 0
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 16
  407. -- part name: Scan
  408. ----- HyperTalk script -----
  409. on mouseUp
  410.   repeat until the mouseClick
  411.     visual effect dissolve
  412.     go to next card of this background
  413.   end repeat
  414. end mouseUp
  415.  
  416.  
  417.  
  418. -- part 28 (button)
  419. -- low flags: 00
  420. -- high flags: 0001
  421. -- rect: left=2 top=210 right=254 bottom=43
  422. -- title width / last selected line: 0
  423. -- icon id / first selected line: 20186 / 20186
  424. -- text alignment: 1
  425. -- font id: 0
  426. -- text size: 12
  427. -- style flags: 0
  428. -- line height: 16
  429. -- part name: Sort
  430. ----- HyperTalk script -----
  431. on mouseUp
  432.   lock screen
  433.   put "" into names
  434.   put the number of cds in this bg into cnum
  435.   repeat for cnum
  436.     set cursor to busy
  437.     repeat with i = 1 to fld "Number"
  438.       put the short name of btn i & return after names
  439.     end repeat
  440.     go next cd of this bg
  441.   end repeat
  442.   put SortLines(names) into names
  443.   put the short name of this bg into back
  444.   repeat for (cnum - 1)
  445.     set cursor to busy
  446.     go last cd of bg back
  447.     doMenu "Delete Card"
  448.   end repeat
  449.   go cd 1 of bg back
  450.   choose button tool
  451.   put fld "Number" into n
  452.   repeat with i = 1 to n
  453.     set cursor to busy
  454.     click at loc of btn (n-i+1)
  455.     doMenu "Clear Button"
  456.   end repeat
  457.   choose browse tool
  458.   put 0 into fld "Number"
  459.   put "" into fld curButton
  460.   repeat with i = 1 to number of lines in names
  461.     set cursor to busy
  462.     AddNewCard (line i of names)
  463.   end repeat
  464.   go cd 1 of this bg
  465.   set cursor to hand
  466.   unlock screen
  467. end mouseUp
  468.  
  469.